* lisp/emacs-lisp/cl-macs.el (cl--optimize): Add a FIXME.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index e7c7374976aa2c992ea8036874509b56dcd73d3b..9c41374fc706757638d19a0ded2986961be96c77 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2359,6 +2359,8 @@ Example:
 (defun foo (x)
   (declare (cl-optimize (speed 3) (safety 0)))
   x)"
+  ;; FIXME this should make use of `cl--declare-stack' but I suspect
+  ;; this mechanism should be reviewed first.
   (cl-loop for (qly val) in qualities
            do (cl-ecase qly
                 (speed